home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Belgian Amiga Club - ADF Collection
/
BS1 part 60.zip
/
BS1 part 60
/
Highspeed pascal.adf
/
Interface
/
Misc.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1992-01-16
|
561b
|
38 lines
Unit Misc;
Interface
Uses Exec;
Type
tMiscResource = Record
mr_Library: tLibrary;
mr_AllocArray: Array [0..3] of LongInt;
End;
pMiscResource = ^tMiscResource;
Var
MiscBase: pMiscResource;
Const
MR_SERIALPORT = $0;
MR_ALLOCMISCRESOURCE = $FFFFFFFA;
MR_PARALLELBITS = $3;
MR_FREEMISCRESOURCE = $0;
MR_PARALLELPORT = $2;
MISCNAME = 'misc.resource';
NUMMRTYPES = $4;
MR_SERIALBITS = $1;
Function AllocMiscResource
(unitNum: LongInt;
name: pShortInt): pShortInt;
Procedure FreeMiscResource (unitNum: LongInt);
End.